Assignment 6

Data Load

library(dplyr)
library(knitr)
library(osmdata)
library(opentripplanner)
library(tidyverse)
library(sf)
library(ggthemes)
library(ggspatial)
library(tidyverse)
library(leaflet)
library(htmltools)
library(htmlwidgets)

Read Data

OpenSpace <- st_read("https://opendata.arcgis.com/datasets/035a5a811a4c41669501cbfd82ef82f6_0.geojson") %>%
  mutate(acres = as.numeric(st_area(geometry)) / 4046.86) 

## Reading layer `Open_Space' from data source `https://opendata.arcgis.com/datasets/035a5a811a4c41669501cbfd82ef82f6_0.geojson' using driver `GeoJSON'
## Simple feature collection with 1532 features and 15 fields
## geometry type:  MULTIPOLYGON
## dimension:      XY
## bbox:           xmin: -78.99507 ymin: 35.56335 xmax: -78.26729 ymax: 36.07621
## geographic CRS: WGS 84

Leaflet map showing polygons

Wake_County_OS1 <- leaflet(OpenSpace) %>%
  addProviderTiles(providers$Stamen.TonerLite) %>%
  addPolygons(fillColor = "green", stroke = FALSE) %>%
  addControl("Open Spaces in Wake County", position = "topright") %>%
  addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
             position = "bottomleft")

Wake_County_OS1

Highlight area

Wake_County_OS2 <- leaflet(OpenSpace) %>%
  addProviderTiles(providers$CartoDB) %>%
  addPolygons(fillColor = "green", stroke = FALSE,
              highlightOptions = highlightOptions(fillColor = "darkgreen", 
                                                  fillOpacity = 1)) %>%
  addControl("Open Spaces in Wake County", position = "topright") %>%
  addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
             position = "bottomleft")

Wake_County_OS2

Highlight area with labels

OpenSpace$describe <- 
  paste(OpenSpace$name, "<br>", 
               prettyNum(OpenSpace$acres, digits = 2), " acres") %>% 
  lapply(htmltools::HTML)

Wake_County_OS3 <- leaflet(OpenSpace) %>%
  addProviderTiles(providers$CartoDB.Voyager) %>%
  addPolygons(fillColor = "green", stroke = FALSE,
              highlightOptions = highlightOptions(fillColor = "darkgreen", 
                                                  fillOpacity = 1),
              label = ~describe) %>%
  addControl("Open Spaces in Wake County", position = "topright") %>%
  addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
             position = "bottomleft")

Wake_County_OS3

WHAT DOESN’T THE NAME SHOW UP?

Leaflet map showing points

OpenSpace_pts <- st_centroid(OpenSpace)

Wake_County_OS4 <- leaflet(OpenSpace_pts) %>%
  addProviderTiles(providers$OpenStreetMap) %>%
  addMarkers(popup = ~describe) %>%
  addControl("Open Spaces in Wake County", position = "topright") %>%
  addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
             position = "bottomleft")

Wake_County_OS4

Leaflet map showing circles

Wake_County_OS5 <- leaflet(OpenSpace_pts) %>%
  addProviderTiles(providers$Stamen) %>%
  addCircles(fillColor = "green", color = "green", 
             stroke = FALSE, radius = 250,
              highlightOptions = highlightOptions(fillColor = "darkgreen", 
                                                  fillOpacity = 1),
              popup = ~describe) %>%
  addControl("Open Spaces in Wake County", position = "topright") %>%
  addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
             position = "bottomleft")

Wake_County_OS5

Leaflet map showing circles, varied by sizes

Wake_County_OS6 <- leaflet(OpenSpace_pts) %>%
  addProviderTiles(providers$Stamen) %>%
  addCircles(fillColor = "green", color = "green", 
             stroke = FALSE, radius = ~acres,
              highlightOptions = highlightOptions(fillColor = "darkgreen", 
                                                  fillOpacity = 1),
              popup = ~describe) %>%
  addControl("Open Spaces in Wake County", position = "topright") %>%
  addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
             position = "bottomleft")

Wake_County_OS6

saveWidget(Wake_County_OS1, file = "parks.html")
saveWidget(Wake_County_OS2, file = "parks.html")
saveWidget(Wake_County_OS3, file = "parks.html")
saveWidget(Wake_County_OS4, file = "parks.html")
saveWidget(Wake_County_OS5, file = "parks.html")
saveWidget(Wake_County_OS6, file = "parks.html")